<?php
/* -----------------------------------------------------------*/
/* ----------------+------------------------+-----------------*/
/* ----------------+						+-----------------*/
/* ----------------+		J.V.L.D			+-----------------*/
/* ----------------+						+-----------------*/
/* ----------------+------------------------+-----------------*/
/* -----------------------------------------------------------*/
function validar_url($url){
	$urlregex = "^(https?|ftp)\:\/\/";
	
	// USER AND PASS (optional)
	$urlregex .= "([a-z0-9+!*(),;?&=\$_.-]+(\:[a-z0-9+!*(),;?&=\$_.-]+)?@)?";
	
	// HOSTNAME OR IP
	//$urlregex .= "[a-z0-9+\$_-]+(\.[a-z0-9+\$_-]+)*"; // http://x = allowed (ex. http://localhost, http://routerlogin)
	$urlregex .= "[a-z0-9+\$_-]+(\.[a-z0-9+\$_-]+)+"; // http://x.x = minimum
	//$urlregex .= "([a-z0-9+\$_-]+\.)*[a-z0-9+\$_-]{2,3}"; // http://x.xx(x) = minimum
	//use only one of the above
	
	// PORT (optional)
	$urlregex .= "(\:[0-9]{2,5})?";
	// PATH (optional)
	$urlregex .= "(\/([a-z0-9+\$_-]\.?)+)*\/?";
	// GET Query (optional)
	$urlregex .= "(\?[a-z+&\$_.-][a-z0-9;:@/&%=+\$_.-]*)?";
	// ANCHOR (optional)
	$urlregex .= "(#[a-z_.-][a-z0-9+\$_.-]*)?\$";
	
	if(eregi($urlregex, $url)) return true;
	else return false;
}

function existe_archivo($archivo){ // 15.09.09 11:10
	$AgetHeaders = @get_headers($archivo);
	if (preg_match("|200|", $AgetHeaders[0])) {
		return true;
	} else {
		return false;
	}
}

function is_url($contenedor,$long){
	$enlace_array = explotar_url();
	if($enlace_array[$long]==$contenedor){
		imprimir(" class=\"current_page_item\"");
	}else{
		imprimir("");
	}
}
function show_404(){
	require('404.php');
	die();
}
function htmlclean($input) {
     $sb_convert = $input;
     $sb_input = array("<",">","(",")");
     $sb_output = array("&lt;","&gt;","&#40;","&#41;");
     $output = str_replace($sb_input, $sb_output, $sb_convert);
     return $output;
}
function BBcodeToHtml($texto){
	$width=550;
	$height=380;
	//http://www.youtube.com/v/gwtn5KWsMkU&rel=1
	
   	$bbcode = array(
      "/\[pollkit\](.*?)\[\/pollkit\]/is",
      "/\[youtube\](.*?)\[\/youtube\]/is",
	  "/\[vimeo\](.*?)\[\/vimeo\]/is",
   	);

   	$html = array(
      "<center style=\"margin:5px 0 5px;\"><script type=\"text/javascript\" src=\"$1\"></script></center>",
      "<center style=\"margin:5px 0 5px;\"><object width=\"$width\" height=\"$height\"><param name=\"movie\" value=\"$1\" /><param name=\"allowFullScreen\" value=\"true\"></param><param name=\"allowScriptAccess\" value=\"always\"></param><embed src=\"$1\" type=\"application/x-shockwave-flash\" allowfullscreen=\"true\" allowScriptAccess=\"always\" width=\"$width\" height=\"$height\"></embed></object></center>",
	   '<center style="margin:5px 0 5px;"><object width="'.$width.'" height="'.$height.'"><param name="allowfullscreen" value="true" /><param name="allowscriptaccess" value="always" /><param name="movie" value="http://vimeo.com/moogaloop.swf?clip_id=$1&amp;server=vimeo.com&amp;show_title=1&amp;show_byline=1&amp;show_portrait=0&amp;color=&amp;fullscreen=1" /><embed src="http://vimeo.com/moogaloop.swf?clip_id=$1&amp;server=vimeo.com&amp;show_title=1&amp;show_byline=1&amp;show_portrait=0&amp;color=&amp;fullscreen=1" type="application/x-shockwave-flash" allowfullscreen="true" allowscriptaccess="always" width="'.$width.'" height="'.$height.'"></embed></object></center>'
   	);
   	$texto = preg_replace($bbcode, $html, $texto);
   	return $texto;
}

function more_content($content,$tile_link) {
	//divido el contenido si encuentra <!--mas--> 
	$contArray=explode('<!--mas-->',$content);
	if(count($contArray)>1){
		//tomamos el primer elemento del array y lo limpiamos
		$contArray[0] = preg_replace('/^[\s]*(.*)[\s]*$/','\\1',$contArray[0]);
		
		//devolvemos el contenido + el enlace 
		$enlace="<a href=\"".G_SERVER."/articulos/".$tile_link."/\">Ver Art&iacute;culo Completo &rsaquo;&rsaquo;</a>";	
		return $contArray[0].$enlace;
	}else{
		return $content;
	}
}
function explotar_url(){
	$navString = $_SERVER['REQUEST_URI']; // Returns "/Mod_rewrite/edit/1/"
	$parts = explode('/', $navString); // Break into an array
	// Lets look at the array of items we have:
	//-->print_r($parts);

	/*$root = "http://".$_SERVER['SERVER_NAME'];
	$enlace = $_SERVER["REQUEST_URI"];
	$enlace_array = explode("/",$enlace);*/
	return $parts;
}
function is_post(){
	$enlace_array = explotar_url();
	
	/*todos los articulos*/
	if($enlace_array[1]=="articulos"){
		//consultamos datos
		$post=ms_articulo($enlace_array[2]);
		registro_en_tablero('<a href="'.$post['enlace'].'">'.$post['titulo'].'</a>');
	}
}

function from_country(){
	//verificamos si existe cookies para no pedir datos por las puras
	if(isset($_COOKIE['_country'])){
		$pais=$_COOKIE['_country'];
		//return '[r]'.$pais;
		return $pais;
		die();
	}else{
		require("script/addons/geoip/geoip.php"); /*requerimos la biblioteca o liberia [cambio de ruta el 27/07/08]*/ 
		$abir_bd = geoip_open("ejemplos/country/GeoIP.dat",GEOIP_STANDARD); /* apertura y lectura del archivo utilizando la constante GEOIP_STANDARD como forma de lectura que adquiere valor en geoip.inc */
		/* imprimimos el nick del pa&#237;s */
		//$country_name = geoip_country_name_by_addr($abir_bd, $_SERVER['REMOTE_ADDR']);
		$country_name = geoip_country_name_by_addr($abir_bd, $_SERVER['REMOTE_ADDR']);
		//$country_name= $_SERVER['GEOIP_LONGITUDE'];
		
		if($country_name)
		{
			$pais=$country_name;
		}
		else
		{
			$pais="robot";
		}
		//grabamos el nombre del pais en cookie por 1 a&#241;o
		setcookie('_country',$pais,time()+(86400*365),"/","");
		
		/* liberamos memoria cerrando el resorce devuelto por $abir_bd de la apertura*/
		geoip_close($abir_bd);
		
		//return '[n]'.$pais;
		return $pais;
	}
}
function validar_mail($pMail) {
	if (ereg("^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@+([_a-zA-Z0-9-]+\.)*[a-zA-Z0-9-]{2,200}\.[a-zA-Z]{2,6}$", $pMail ) ) {
		return true;
	}else{
		return false;
	}
}
function getRealIP(){
   
   if( isset($_SERVER['HTTP_X_FORWARDED_FOR']) != '' )
   {
      $client_ip =
         ( !empty($_SERVER['REMOTE_ADDR']) ) ?
            $_SERVER['REMOTE_ADDR']
            :
            ( ( !empty($_ENV['REMOTE_ADDR']) ) ?
               $_ENV['REMOTE_ADDR']
               :
               "unknown" );
   
      // los proxys van a&#241;adiendo al final de esta cabecera
      // las direcciones ip que van "ocultando". Para localizar la ip real
      // del usuario se comienza a mirar por el principio hasta encontrar
      // una direcci&#243;n ip que no sea del rango privado. En caso de no
      // encontrarse ninguna se toma como valor el REMOTE_ADDR
   
      $entries = split('[, ]', $_SERVER['HTTP_X_FORWARDED_FOR']);
   
      reset($entries);
      while (list(, $entry) = each($entries))
      {
         $entry = trim($entry);
         if ( preg_match("/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)/", $entry, $ip_list) )
         {
            // http://www.faqs.org/rfcs/rfc1918.html
            $private_ip = array(
                  '/^0\./',
                  '/^127\.0\.0\.1/',
                  '/^192\.168\..*/',
                  '/^172\.((1[6-9])|(2[0-9])|(3[0-1]))\..*/',
                  '/^10\..*/');
   
            $found_ip = preg_replace($private_ip, $client_ip, $ip_list[1]);
   
            if ($client_ip != $found_ip)
            {
               $client_ip = $found_ip;
               break;
            }
         }
      }
   }
   else
   {
      $client_ip =
         ( !empty($_SERVER['REMOTE_ADDR']) ) ?
            $_SERVER['REMOTE_ADDR']
            :
            ( ( !empty($_ENV['REMOTE_ADDR']) ) ?
               $_ENV['REMOTE_ADDR']
               :
               "unknown" );
   }
   
   return $client_ip;
}
function is_tablero($server,$style){
	$css_and_js='';
	//if(isset($_GET['section']) && $_GET['section']=='tablero')
	$enlace_array = explotar_url();
	if($enlace_array[1]=="tablero")
		$css_and_js='<link rel="stylesheet" href="'.$server.'/temas/'.$style.'/css/estilo_tablero.css" />
<script type="text/javascript" src="'.$server.'/espia/ajax.js"></script>
<script type="text/javascript" src="'.$server.'/espia/dom.js"></script>
<script type="text/javascript" src="'.$server.'/espia/js/prototype.js"></script>
<script type="text/javascript" src="'.$server.'/espia/js/scriptaculous.js"></script>';
	return $css_and_js;
}
function subtitulo(){
	$subtitulo=G_SUBTITULO;
	$enlace_array = explotar_url();
	//falta ejemplos, acerca, contacto, tablero
	if(G_ENL_AMIG){
		if($enlace_array[1]=="articulos") $subtitulo=ms_campos_articulo('titulo',$enlace_array[2]);
		if($enlace_array[1]=="categoria") $subtitulo=ms_nombre_categoria('nombre_enlace',$enlace_array[2]);
		if($enlace_array[1]=="archivo") $subtitulo=ms_mes_anio($enlace_array[2].$enlace_array[3]);
		$paginas_validas = array('acerca','contacto','tablero','tags');
		if(in_array($enlace_array[1], $paginas_validas, true)==true){
			if($enlace_array[1]=="acerca") $subtitulo = "Acerca del Blog";
			if($enlace_array[1]=="contacto") $subtitulo = "Informaci&oacute;n de contacto";
			if($enlace_array[1]=="tablero") $subtitulo = "Espia (beta)";
			if($enlace_array[1]=="tags") $subtitulo = "Nube de Tags";
		}
	}else{
		if(isset($_GET['art']))	$subtitulo=ms_campos_articulo('titulo',$_GET['art']);
		if(isset($_GET['cat']))	$subtitulo=ms_nombre_categoria('nombre_enlace',$_GET['cat']);
		if(isset($_GET['m']))	$subtitulo=ms_mes_anio($_GET['m']);
	}
	return $subtitulo;
}
function meta_keywords(){
	$enlace_array = explotar_url();
	$meta=G_METAKEYWORDS;
	if(G_ENL_AMIG){
		if($enlace_array[1]=="articulos") $meta=ms_campos_articulo('tags',$enlace_array[2]);
	}else{
		if(isset($_GET['art'])) $meta=ms_campos_articulo('tags',$_GET['art']);
	}
	return $meta;
}
function meta_description(){
	$enlace_array = explotar_url();
	$meta=G_METADESCRIPTION;
	if(G_ENL_AMIG){
		if($enlace_array[1]=="articulos") $meta=resumen(strip_tags(ms_campos_articulo('contenido',$enlace_array[2])),30);
	}else{
		if(isset($_GET['art'])) $meta=resumen(strip_tags(ms_campos_articulo('contenido',$_GET['art'])),30);
	}
	return $meta;
}
function resumen($cadena, $longitud, $elipsis = "..."){
	$palabras = explode(' ', $cadena);
	if (count($palabras) > $longitud)
		return implode(' ', array_slice($palabras, 0, $longitud)) . $elipsis;
	else
		return $cadena;
}
//lista de paginas para comentarios
function PaginasComen($PagAct,$Ord,$idtip,$NroReg,$RegAMostrar){
	$PagAnt=$PagAct-1;
	$PagSig=$PagAct+1;
	$PagUlt=$NroReg/$RegAMostrar;
			
	$Res=$NroReg%$RegAMostrar;
	if($Res>0) $PagUlt=floor($PagUlt)+1;
	
	//orden nueva
	if($Ord=="DESC"){
		$Orden="ASC";
		$name="&uarr; Asc.";
	}else{
		$Orden="DESC";
		$name="&darr; Desc.";
	}
	echo "<a href=\"#comentarios\" onclick=\"PaginaComentario('$PagAct','lista_comentarios','".$idtip."','".$Orden."')\">$name</a> ";

	if($NroReg>$RegAMostrar){
		//pagina anterior
		if($PagAct>1) 
			echo "<a href=\"#comentarios\" onclick=\"PaginaComentario('$PagAnt','lista_comentarios','".$idtip."','".$Ord."')\">&lsaquo;</a> ";
		else
			echo "<a>&lsaquo;</a> ";
		//listar numero de paginas
		for($i=1;$i<=$PagUlt;$i++){
			if($i==$PagAct){
				//echo "<a href=\"#comentarios\" class=\"on\" onclick=\"PaginaComentario('$i','lista_comentarios','".$idtip."','".$Ord."')\">$i</a> ";
				echo "<strong class=\"on\">$i</strong> ";
			}else{
				echo "<a href=\"#comentarios\" onclick=\"PaginaComentario('$i','lista_comentarios','".$idtip."','".$Ord."')\">$i</a> ";
			}
		}
		//pagina siguiente
		if($PagAct<$PagUlt)  
			echo " <a href=\"#comentarios\" onclick=\"PaginaComentario('$PagSig','lista_comentarios','".$idtip."','".$Ord."')\">&rsaquo;</a> ";
		else
			echo " <a>&rsaquo;</a> ";
	}

}

//avatares
function avatar($mail,$estilo,$size=25){
	
	$G_SERVER= "http://".$_SERVER['SERVER_NAME'];
	$default =  $G_SERVER."/temas/".$estilo."/images/default.gif";
	
	//You can construct your gravatar url with the following php code:
	$grav_url = "http://www.gravatar.com/avatar.php?gravatar_id=".md5($mail).
			"&amp;default=".urlencode($default)."&amp;size=".$size;
			
	return '<img src="'.$grav_url.'" alt="avatar" width="'.$size.'" height="'.$size.'" />';
}

//formularios
function frm_comentario($articulo_id){
	$num1=rand(1,10);
	$num2=rand(1,10);
	echo '
		<div class="Form"><div class="FormTop"></div>
		
		<form action="'.G_SERVER.'/script/agregar_comentario.php" method="post" id="commentform">
		<input name="articulo_id" value="'.$articulo_id.'" type="hidden" />
		<input name="info" class="special" type="text" />
		<p>
		<label for="author">
		<small>Nombre (<strong>*</strong>)</small>
		<input name="author" id="author" value="" maxlength="50" tabindex="1" class="TextField" style="width: 375px;" type="text" />
		</label>
		</p>
				
		<p>
		<label for="email">
		<small>E-mail (<strong>*</strong>)</small>
		<input name="email" id="email" value="" maxlength="50" tabindex="2" class="TextField" style="width: 375px;" type="text" />
		
		</label>
		</p>
				
		<p>
		<label for="url">
		<small>Web / Blog (promocionate)</small>
		<input name="url" id="url" value="" maxlength="50" tabindex="3" class="TextField" style="width: 375px;" type="text" />
		</label>
		</p>
		
		<!--<p>
	 	<input id="recordar" name="recordar" value="1" checked="checked" type="checkbox" /> <label for="recordar"> Recordar mis datos personales</label>
	 	</p>-->
		
		<br clear="all" />
		<p>
		<textarea name="comment" id="comment" cols="40%" rows="10" tabindex="4" class="TextArea" style="width: 375px;"></textarea></p>
		
		<p>
		<label for="security">
		<input type="hidden" name="num1" value="'.$num1.'" />
		<input type="hidden" name="num2" value="'.$num2.'" />
		<small>&iquest;Cuanto es <strong><big>'.$num1.' + '.$num2.'</big></strong>? (disculpanos! no queriamos llegar a esto)</small>
		<input name="security" id="security" value="" maxlength="2" tabindex="5" class="TextField" style="width: 40px;" type="text" />
		</label>
		</p>
	';
	

	imprimir('
		<script type="text/javascript">
                //<![CDATA[
		document.write(\'<p><input name="SubmitComment" class="SubmitComment" title="Escribe tu comentario" src="/temas/ribosoma4/images/ButtonTransparent.png" alt="Escribe tu comentario" type="image" /></p>\');
                //]]>
		</script>');
	
	imprimir('<noscript>Necesitas JavaScript activado.</noscript>');
		
	echo '
		<!--<p><input name="SubmitComment" class="SubmitComment" title="Escribe tu comentario" src="/temas/ribosoma4/images/ButtonTransparent.png" alt="Escribe tu comentario" type="image" />
		</p>-->

		</form>
		</div>
	';
}

function frm_comentario_small($articulo_id){
	$num1=rand(1,10);
	$num2=rand(1,10);
	echo '
		<div class="Form"><div class="FormTop"></div>
		
		<form action="'.G_SERVER.'/script/agregar_comentario.php" method="post" id="commentform">
		<p><input name="articulo_id" value="'.$articulo_id.'" type="hidden" /></p>
		<p><input name="info" class="special" type="text" /></p>
		<p>
		<label for="author">
		<small>Nombre (<strong>*</strong>)</small>
		<input name="author" id="author" value="" maxlength="50" tabindex="1" class="TextField" style="width: 200px;" type="text" />
		</label>
		</p>
				
		<p>
		<label for="email">
		<small>E-mail (<strong>*</strong>)</small>
		<input name="email" id="email" value="" maxlength="50" tabindex="2" class="TextField" style="width: 200px;" type="text" />
		
		</label>
		</p>
				
		<p>
		<label for="url">
		<small>Web / Blog (promocionate)</small>
		<input name="url" id="url" value="" maxlength="50" tabindex="3" class="TextField" style="width: 200px;" type="text" />
		</label>
		</p>
		
		<p>
		<label for="comment">
		<small>Contenido (<strong>*</strong>)</small>
		<textarea name="comment" id="comment" cols="40%" rows="5" tabindex="4" class="TextArea" style="width: 200px;"></textarea>
		</label>
		</p>
		
		<p>
		<label for="security">
		<input type="hidden" name="num1" value="'.$num1.'" />
		<input type="hidden" name="num2" value="'.$num2.'" />
		<small>&iquest;Cuanto es <strong><big>'.$num1.' + '.$num2.'</big></strong>? (disculpanos! no queriamos llegar a esto)</small>
		<input name="security" id="security" value="" maxlength="2" tabindex="5" class="TextField" style="width: 40px;" type="text" />
		</label>
		</p>
	';
		
	echo '
		<p><input name="SubmitComment" class="SubmitComment" type="submit" />
		</p>

		</form>
		</div>
	';
}

function separar_mes($fecha){
	$mes=explode('/',$fecha);
	return nombre_mes($mes[0],false)." ".$mes[1];
}
function mes_anio($fecha){
	$mes=explode('/',$fecha);
	return $mes[0].$mes[1];
}
function nombre_mes($fecha, $corto=true){
	switch ($fecha){
		case "1":
			$nombre_mes="Enero";
			if($corto==true)$nombre_mes="Ene";
			return $nombre_mes;
			break;
		case "2":
			$nombre_mes="Febrero";
			if($corto==true)$nombre_mes="Feb";
			return $nombre_mes;
			break;
		case "3":
			$nombre_mes="Marzo";
			if($corto==true)$nombre_mes="Mar";
			return $nombre_mes;
			break;
		case "4":
			$nombre_mes="Abril";
			if($corto==true)$nombre_mes="Abr";
			return $nombre_mes;
			break;
		case "5":
			$nombre_mes="Mayo";
			if($corto==true)$nombre_mes="May";
			return $nombre_mes;
			break;
		case "6":
			$nombre_mes="Junio";
			if($corto==true)$nombre_mes="Jun";
			return $nombre_mes;
			break;
		case "7":
			$nombre_mes="Julio";
			if($corto==true)$nombre_mes="Jul";
			return $nombre_mes;
			break;
		case "8":
			$nombre_mes="Agosto";
			if($corto==true)$nombre_mes="Ago";
			return $nombre_mes;
			break;
		case "9":
			$nombre_mes="Septiembre";
			if($corto==true)$nombre_mes="Sep";
			return $nombre_mes;
			break;
		case "10":
			$nombre_mes="Octubre";
			if($corto==true)$nombre_mes="Oct";
			return $nombre_mes;
			break;
		case "11":
			$nombre_mes="Noviembre";
			if($corto==true)$nombre_mes="Nov";
			return $nombre_mes;
			break;
		case "12":
			$nombre_mes="Diciembre";
			if($corto==true)$nombre_mes="Dic";
			return $nombre_mes;
			break;
		default:
			return 0;
	}
}
function get_header(){
	require('temas/'.G_ESTILO.'/header.php');
}
function get_footer(){
	require('temas/'.G_ESTILO.'/footer.php');
}
function get_sidebar(){
	require('temas/'.G_ESTILO.'/sidebar.php');
}
function get_comment($articulo_id){
	$articulo_id=$articulo_id;
	require('temas/'.G_ESTILO.'/comments.php');
}

function imprimir($valor){
	echo $valor;
}
function EnlacePaginas($nro_pag){
	if(G_ENL_AMIG){
		if($nro_pag==1)
			return G_SERVER;
		else
			return G_SERVER."/pagina/".$nro_pag."/";
	}else{
		if($nro_pag==1)
			return G_SERVER;
		else
			return G_SERVER."?pag=".$nro_pag;
	}
}
function EnlacePaginasDeArchivo($mes_anio,$nro_pag){
	if(G_ENL_AMIG){
		$mes=substr($mes_anio, 0, 2);
		$anio=substr($mes_anio, 2, 4);
		if($nro_pag==1)
			return G_SERVER."/archivo/".$mes."/".$anio."/";
		else
			return G_SERVER."/archivo/".$mes."/".$anio."/pagina/".$nro_pag."/";
	}else{
		if($nro_pag==1)
			return G_SERVER."/?m=".$mes_anio;
		else
			return G_SERVER."/?m=".$mes_anio."&pag=".$nro_pag;
	}
}
function EnlacePaginasDeCategoria($nom_cat,$nro_pag){
	if(G_ENL_AMIG){
		if($nro_pag==1)
			return G_SERVER."/categoria/".$nom_cat."/";
		else
			return G_SERVER."/categoria/".$nom_cat."/pagina/".$nro_pag."/";
	}else{
		if($nro_pag==1)
			return G_SERVER."/?cat=".$nom_cat;
		else
			return G_SERVER."/?cat=".$nom_cat."&pag=".$nro_pag;
	}
}
function EnlaceArchivo($mes_anio){
	if(G_ENL_AMIG){
		$mes=substr($mes_anio, 0, 2);
		$anio=substr($mes_anio, 2, 4);
		return G_SERVER."/archivo/".$mes."/".$anio."/";
	}else{
		return G_SERVER."/?m=".$mes_anio;
	}
}

function EnlaceCategorias($nom_cat){
	if(G_ENL_AMIG){
		return G_SERVER."/categoria/".$nom_cat."/";
	}else{
		return G_SERVER."/?cat=".$nom_cat;
	}
}
function EnlaceArticulos($nom_art){
	if(G_ENL_AMIG){
		return G_SERVER."/articulos/".$nom_art."/";
	}else{
		return G_SERVER."/post.php?art=".$nom_art;
	}
}
function SeleccionarPaginacion($tipo,$Pag,$opcion=''){
	switch($tipo){
		case 'categoria':
			return EnlacePaginasDeCategoria($opcion,$Pag);
		break;
		case 'archivo':
			return EnlacePaginasDeArchivo($opcion,$Pag);
		break;
		case 'portada':
			return EnlacePaginas($Pag);
		break;
	}
}
function Paginas($PagAct,$NroReg,$RegAMostrar,$tipo='',$opcion=''){
	//echo "<h1>".$NroReg."</h1>";
	$PagAnt=$PagAct-1;
	$PagSig=$PagAct+1;
	$PagUlt=$NroReg/$RegAMostrar;
	
	$Res=$NroReg%$RegAMostrar;
	if($Res>0) $PagUlt=floor($PagUlt)+1;
	
	/*agregado 30/10/07*/
	imprimir('<span>P&aacute;gina '.$PagAct." / ".$PagUlt.' : </span>');
	
	//si la ultima pagina es 1 no es necesario paginar.
	if($PagUlt==1) return;

	//pagina anterior
	if($PagAct>1){
		//imprimir("<a href=\"".EnlacePaginas($PagAct-1)."\">&lsaquo; Anterior</a> ");
		imprimir("<a href=\"".SeleccionarPaginacion($tipo,$PagAct-1,$opcion)."\">Anterior</a> ");
	}
	
	//primera pagina
	if($PagAct>1){
		//imprimir("<a href=\"".EnlacePaginas(1)."\">1</a> ");
		imprimir("<a href=\"".SeleccionarPaginacion($tipo,1,$opcion)."\">1</a> ");
	}else{
		imprimir("<strong class=\"on\">1</strong> ");
	}
	
	//relacion de paginas 
	
	//si es mayor de 7 paginas entonces [...]
	if($PagUlt>7){
		//si pagina actual mayor a 5 le empezamos a mostrar los [...] antes y despues
		if($PagAct>=5){
			//si la pagina se acerca al final tenemos que ...
			if($PagAct>=$PagUlt-3){
				imprimir('<span>...</span>');
				for($i=$PagUlt-5;$i<=$PagUlt-1;$i++){
					if($i==$PagAct){
						imprimir("<strong class=\"on\">$i</strong> ");
					}else{
						//imprimir("<a href=\"".EnlacePaginas($i)."\">$i</a> ");
						imprimir("<a href=\"".SeleccionarPaginacion($tipo,$i,$opcion)."\">$i</a> ");
					}
				}
			}else{
				imprimir('<span>...</span>');
				for($i=$PagAct-2;$i<=$PagAct+2;$i++){
					if($i==$PagAct){
						imprimir("<strong class=\"on\">$i</strong> ");
					}else{
						//imprimir("<a href=\"".EnlacePaginas($i)."\">$i</a> ");
						imprimir("<a href=\"".SeleccionarPaginacion($tipo,$i,$opcion)."\">$i</a> ");
					}
				}
				imprimir('<span>...</span>');
			}
		}else{
		//desde el dos hasta el 6
			for($i=2;$i<=6;$i++){
				if($i==$PagAct){
					imprimir("<strong class=\"on\">$i</strong> ");
				}else{
					//imprimir("<a href=\"".EnlacePaginas($i)."\">$i</a> ");
					imprimir("<a href=\"".SeleccionarPaginacion($tipo,$i,$opcion)."\">$i</a> ");
				}
			}
			imprimir('<span>...</span>');
		}			
	}else{
	//desde el 2 hasta el ultimo -1 
		for($i=2;$i<=$PagUlt-1;$i++){
			if($i==$PagAct){
				imprimir("<strong class=\"on\">$i</strong> ");
			}else{
				//imprimir("<a href=\"".EnlacePaginas($i)."\">$i</a> ");
				imprimir("<a href=\"".SeleccionarPaginacion($tipo,$i,$opcion)."\">$i</a> ");
			}
		}
	}
	
	//ultima pagina
	if($PagAct==$PagUlt){
		imprimir("<strong class=\"on\">$PagUlt</strong> ");
	}else{
		//imprimir("<a href=\"".EnlacePaginas($PagUlt)."\">$PagUlt</a> ");
		imprimir("<a href=\"".SeleccionarPaginacion($tipo,$PagUlt,$opcion)."\">$PagUlt</a> ");
	}
	
	//pagina siguiente
	if($PagAct<$PagUlt){
		//imprimir("<a href=\"".EnlacePaginas($PagAct+1)."\">Siguiente &rsaquo;</a> ");
		imprimir("<a href=\"".SeleccionarPaginacion($tipo,$PagAct+1,$opcion)."\">Siguiente</a> ");
	}
}
function mostrar_tags($array_tags){
	//limpiamos caracteres vacios a la derecha e izquierda
	$i=0;
	$numtot=count($array_tags);
	$tags_limpios="";
	$coma=",";
	while($i<$numtot-1){
		$tags_limpios=$tags_limpios.$coma.trim($array_tags[$i]);
		$i++;
	}
	$array_tags=explode(',',$tags_limpios);
	
	$array_tags2=array_count_values($array_tags);
	
	$font_size=9;
	$nuevos="";
	
	//orden clave-valor
	//arsort($array_tags2);
	
	//orden a-z
	ksort($array_tags2);
	
	foreach($array_tags2 as $key => $value) {
		$font=$font_size+($value/1.1);
		$nuevos=$nuevos.' <a rel="nofollow" href="'.link_busqueda($key).'" style="font-size:'.$font.'px">'.$key .'</a> '; 
	} 
	return $nuevos;
}

function link_busqueda($consulta){
	$link_busqueda='http://www.google.com.pe/custom?hl=es&client=pub-9922276318589193&cof=FORID%3A1%3BGL%3A1%3BS%3Ahttp%3A%2F%2Fwww.ribosomatic.com%2F%3BL%3Ahttp%3A%2F%2Fwww.ribosomatic.com%2Fimg%2Flogo_lite.gif%3BLH%3A50%3BLW%3A123%3BLBGC%3AFFFFFF%3BLC%3A%230066cc%3BVLC%3A%23336633%3BGALT%3A%230066CC%3BGFNT%3A%23666666%3BGIMP%3A%23666666%3BDIV%3A%23999999%3B&domains=www.ribosomatic.com&q='.$consulta.'&btnG=Buscar&sitesearch=www.ribosomatic.com&meta=';
	return $link_busqueda;
}
?>